armstrong number in qbasic